home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
loanapp.exe
/
LOANF10.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
9KB
|
292 lines
VERSION 2.00
Begin Form Form10
BackColor = &H00808080&
ClientHeight = 3300
ClientLeft = 300
ClientTop = 2160
ClientWidth = 8880
ControlBox = 0 'False
Height = 3705
Left = 240
LinkMode = 1 'Source
LinkTopic = "Form10"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3300
ScaleWidth = 8880
Top = 1815
Width = 9000
Begin CommandButton Command3
Caption = "Cancel"
Height = 300
Left = 4995
TabIndex = 16
Top = 2805
Width = 3000
End
Begin CommandButton Command1
Caption = "Ok"
Height = 300
Left = 885
TabIndex = 15
Top = 2805
Width = 3000
End
Begin PictureBox Picture5
Height = 600
Left = 45
ScaleHeight = 570
ScaleWidth = 4140
TabIndex = 12
Top = 2010
Width = 4170
Begin VBedit BEditF10
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 5
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 2910
TabIndex = 14
Top = 30
Version = 268435458
Width = 1185
End
Begin Label Label5
Caption = "Number of years at this address:"
Height = 210
Left = 105
TabIndex = 13
Top = 240
Width = 2835
End
End
Begin PictureBox Picture4
Height = 900
Left = 6840
ScaleHeight = 870
ScaleWidth = 1965
TabIndex = 3
Top = 1035
Width = 1995
Begin VBedit BEditF10
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 4
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 11
Top = 345
Version = 268435458
Width = 1875
End
Begin Label Label4
Caption = "Zip Code:"
Height = 210
Left = 45
TabIndex = 10
Top = 45
Width = 900
End
End
Begin PictureBox Picture3
Height = 900
Left = 5850
ScaleHeight = 870
ScaleWidth = 885
TabIndex = 2
Top = 1035
Width = 915
Begin VBedit BEditF10
CellHeight = 480
CellWidth = 360
CharSet = 16651
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 3
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 9
Top = 360
Version = 268435458
Width = 795
End
Begin Label Label3
Caption = "State:"
Height = 240
Left = 45
TabIndex = 8
Top = 45
Width = 570
End
End
Begin PictureBox Picture2
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 5700
TabIndex = 1
Top = 1035
Width = 5730
Begin VBedit BEditF10
CellHeight = 480
CellWidth = 360
CharSet = 16651
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 2
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 7
Top = 315
Version = 268435458
Width = 5610
End
Begin Label Label2
Caption = "City:"
Height = 255
Left = 45
TabIndex = 6
Top = 45
Width = 435
End
End
Begin PictureBox Picture1
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 8760
TabIndex = 0
Top = 60
Width = 8790
Begin VBedit BEditF10
CellHeight = 480
CellWidth = 360
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 1
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 5
Top = 330
Version = 268435458
Width = 8670
End
Begin Label Label1
Caption = "Address:"
Height = 210
Left = 45
TabIndex = 4
Top = 45
Width = 1725
End
End
End
Sub BEditF10_LostFocus (Index As Integer)
If Index = 3 Then
Form10.BEditF10(3).Text = UCase$(Form10.BEditF10(3).Text)
End If
End Sub
Sub Command1_Click ()
Select Case AddressBox
Case 1
MainRec.B.B1 = Form10.BEditF10(1).Text
MainRec.B.B2 = Form10.BEditF10(2).Text
MainRec.B.B3 = Form10.BEditF10(3).Text
MainRec.B.B4 = Form10.BEditF10(4).Text
UpdateLabelB
Case 2
MainRec.I.B1 = Form10.BEditF10(1).Text
MainRec.I.B2 = Form10.BEditF10(2).Text
MainRec.I.B3 = Form10.BEditF10(3).Text
MainRec.I.B4 = Form10.BEditF10(4).Text
MainRec.I.B5 = Form10.BEditF10(5).Text
UpdateLabelI
Case 3
MainRec.J.B1 = Form10.BEditF10(1).Text
MainRec.J.B2 = Form10.BEditF10(2).Text
MainRec.J.B3 = Form10.BEditF10(3).Text
MainRec.J.B4 = Form10.BEditF10(4).Text
MainRec.J.B5 = Form10.BEditF10(5).Text
UpdateLabelJ
End Select
Form10.Hide
End Sub
Sub Command3_Click ()
Form10.Hide
End Sub
Sub Form_Load ()
Form10.Left = 300
Form10.Top = (Screen.Height - Form10.Height) / 2
End Sub
